﻿<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="utf-8.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="Include.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title>创意产业园</title>
<base target="_blank" />
<link href="images/style.css" rel="stylesheet" type="text/css"/>
<script src="images/js.js" type="text/ecmascript"></script>
</head>
<body>
<div id="all">
    <!--#include file="header.asp"-->
    <div id="news">
        <!--中部板块开始-->
        <div class="channelName"><img src="images/bg_news_h1.jpg"  /></div>
        <div class="eliteNews">
            <%
                sql=" Select top 2 * from news where elite=1 order by id desc"
                Set rs = Server.CreateObject ("ADODB.Recordset")
                rs.open sql,conn,1,1
                do while not rs.eof
                    response.write ("<div class='eliteNews_items'>") & vbcrlf
                    response.write ("<div class='eliteNews_items_image'><img src='"& rs("Thumb") &"'></div>") & vbcrlf
                    response.write ("<div class='eliteNews_items_txt'>") & vbcrlf
                    response.write ("<div class='eliteNews_items_title'><a href='NewsInfo.asp?type=news&id="& rs("id") &"' target=""_blank"">"& left(rs("title"),30) &"...</a></div>") & vbcrlf
                    response.write ("<div class='eliteNews_items_text'>"& left(ClearHtml(rs("body")),30) &"</div>") & vbcrlf
                    response.write ("<span>>><a href='/newsinfo.asp?id="& rs("id") &"' class='red_a'>详细</a></span>") & vbcrlf
                    response.write ("</div>") & vbcrlf
                    response.write ("</div>") & vbcrlf
                    rs.movenext
                loop
                rs.close
                set rs=nothing
            %>
        </div>
        
        
        <h3><a href="#" class="more">more</a>资讯热点</h3>
        <div class="mainNews">
        
        	<div class="mainNews_left">
            	<h4><a href="#" class="more">more</a>日常新闻</h4>
                <p align="center"><img src="/images/bg_news_pic_01.jpg"></p>
            
                <div class="Content2_new">
					<%
					dim TopNewsTitle,TopNewsContent
					sql=" Select top 1 * from news where ssfl=1 and ontop=1 order by id desc,UpdateTime desc"
					Set rs = Server.CreateObject ("ADODB.Recordset")
					rs.open sql,conn,1,1
					'response.write (sql) & "<br>"
					if not rs.eof then
						Thumb = rs("Thumb")
						TopNewsID = rs("id")
						TopNewsTitle = left(rs("title"),15)
						TopNewsContent = left(ClearHtml(rs("body")),50)
					end if 
					rs.close
					set rs=nothing
					%>
                    <div class="eliteNews_items_title"><a href="/newsinfo.asp?id=<%=TopNewsID%>"><%=TopNewsTitle%></a></div>
                    <div class="eliteNews_items_text"><%=TopNewsContent%>...</div>
                    <span class="more_span">>><a href="/newsinfo.asp?id=<%=TopNewsID%>" class="red_a" >详细</a></span>
                    <ul>
                        <%
                        sql=" Select top 6 * from news where ssfl=1 order by id desc,UpdateTime desc"
                        Set rs = Server.CreateObject ("ADODB.Recordset")
                        rs.open sql,conn,1,1
                        do while not rs.eof
                            UpdateTime = Year(rs("UpdateTime")) & "-" & Month(rs("UpdateTime")) & "-" & day(rs("UpdateTime")) 
                            response.write ("<li><a href=""/newsinfo.asp?id="& rs("id") &""">"& left(rs("title"),40) &"...</a></li>") & vbcrlf
                            rs.movenext
                        loop
    
                        rs.close
                        set rs=nothing
                        TopNewsTitle = ""
                        TopNewsContent = ""
                        %>
                    </ul>
            
                </div>
        
            </div>
            
            
            <div class="mainNews_right">
            
            	<!--行业新闻-->
            	<div class="mainNews_right_items">
                    <h4><a href="#" class="more">more</a>行业新闻</h4>
                    <%
                    sql=" Select top 1 * from news where ssfl=4 and ontop=1 order by id desc,UpdateTime desc"
                    Set rs = Server.CreateObject ("ADODB.Recordset")
                    rs.open sql,conn,1,1
                    'response.write (sql) & "<br>"
                    if not rs.eof then
                    Thumb = rs("Thumb")
                    TopNewsID = rs("id")
                    TopNewsTitle = left(rs("title"),15)
                    TopNewsContent = left(ClearHtml(rs("body")),50)
                    end if 
                    rs.close
                    set rs=nothing
                    %>
                    <div class="eliteNews_items">
                        <div class="eliteNews_items_image"><img src="<%=Thumb%>" width=130 height=95 /></div>
                        <div class="eliteNews_items_txt">
                            <div class="eliteNews_items_title"><a href="/newsinfo.asp?id=<%=TopNewsID%>"><%=TopNewsTitle%></a></div>
                            <div class="eliteNews_items_text"><%=TopNewsContent%>...</div>
                            <span class="more_span">>><a href="/newsinfo.asp?id=<%=TopNewsID%>" class="red_a" >详细</a></span>
                        </div>
                    </div>
                    <ul>
						<%
                        sql=" Select top 5 * from news where ssfl=4 order by id desc,UpdateTime desc"
                        Set rs = Server.CreateObject ("ADODB.Recordset")
                        rs.open sql,conn,1,1
                        'response.write (sql)
                        do while not rs.eof
                        UpdateTime = Year(rs("UpdateTime")) & "-" & Month(rs("UpdateTime")) & "-" & day(rs("UpdateTime")) 
                        response.write ("<li><a href=""/newsinfo.asp?id="& rs("id") &""">"& left(rs("title"),40) &"...</a></li>") & vbcrlf
                        rs.movenext
                        loop
                        
                        rs.close
                        set rs=nothing
                        TopNewsTitle = ""
                        TopNewsContent = ""
                        %>
                    </ul>
                </div>
                
                
            	<!--政府公告-->
            	<div class="mainNews_right_items" style="margin-left:10px;">
                    <h4><a href="#" class="more">more</a>政府公告</h4>
                    <%
                    sql=" Select top 1 * from news where ssfl=6 and ontop=1 order by id desc,UpdateTime desc"
                    Set rs = Server.CreateObject ("ADODB.Recordset")
                    rs.open sql,conn,1,1
                    'response.write (sql) & "<br>"
                    if not rs.eof then
                    Thumb = rs("Thumb")
                    TopNewsID = rs("id")
                    TopNewsTitle = left(rs("title"),15)
                    TopNewsContent = left(ClearHtml(rs("body")),50)
                    end if 
                    rs.close
                    set rs=nothing
                    %>
                    <div class="eliteNews_items">
                        <div class="eliteNews_items_image"><img src="<%=Thumb%>" width=130 height=95 /></div>
                        <div class="eliteNews_items_txt">
                            <div class="eliteNews_items_title"><a href="/newsinfo.asp?id=<%=TopNewsID%>"><%=TopNewsTitle%></a></div>
                            <div class="eliteNews_items_text"><%=TopNewsContent%>...</div>
                            <span class="more_span">>><a href="/newsinfo.asp?id=<%=TopNewsID%>" class="red_a" >详细</a></span>
                        </div>
                    </div>
                    <ul>
						<%
                        sql=" Select top 5 * from news where ssfl=6 order by id desc,UpdateTime desc"
                        Set rs = Server.CreateObject ("ADODB.Recordset")
                        rs.open sql,conn,1,1
                        'response.write (sql)
                        do while not rs.eof
                        UpdateTime = Year(rs("UpdateTime")) & "-" & Month(rs("UpdateTime")) & "-" & day(rs("UpdateTime")) 
                        response.write ("<li><a href=""/newsinfo.asp?id="& rs("id") &""">"& left(rs("title"),40) &"...</a></li>") & vbcrlf
                        rs.movenext
                        loop
                        
                        rs.close
                        set rs=nothing
                        TopNewsTitle = ""
                        TopNewsContent = ""
                        %>
                    </ul>
                </div>
                
            	<!--园区大事记-->
            	<div class="mainNews_right_items">
                    <h4><a href="#" class="more">more</a>园区大事记</h4>
                    <%
                    sql=" Select top 1 * from news where ssfl=7 and ontop=1 order by id desc,UpdateTime desc"
                    Set rs = Server.CreateObject ("ADODB.Recordset")
                    rs.open sql,conn,1,1
                    'response.write (sql) & "<br>"
                    if not rs.eof then
                    Thumb = rs("Thumb")
                    TopNewsID = rs("id")
                    TopNewsTitle = left(rs("title"),15)
                    TopNewsContent = left(ClearHtml(rs("body")),50)
                    end if 
                    rs.close
                    set rs=nothing
                    %>
                    <div class="eliteNews_items">
                        <div class="eliteNews_items_image"><img src="<%=Thumb%>" width=130 height=95 /></div>
                        <div class="eliteNews_items_txt">
                            <div class="eliteNews_items_title"><a href="/newsinfo.asp?id=<%=TopNewsID%>"><%=TopNewsTitle%></a></div>
                            <div class="eliteNews_items_text"><%=TopNewsContent%>...</div>
                            <span class="more_span">>><a href="/newsinfo.asp?id=<%=TopNewsID%>" class="red_a" >详细</a></span>
                        </div>
                    </div>
                    <ul>
						<%
                        sql=" Select top 5 * from news where ssfl=7 order by id desc,UpdateTime desc"
                        Set rs = Server.CreateObject ("ADODB.Recordset")
                        rs.open sql,conn,1,1
                        'response.write (sql)
                        do while not rs.eof
                        UpdateTime = Year(rs("UpdateTime")) & "-" & Month(rs("UpdateTime")) & "-" & day(rs("UpdateTime")) 
                        response.write ("<li><a href=""/newsinfo.asp?id="& rs("id") &""">"& left(rs("title"),40) &"...</a></li>") & vbcrlf
                        rs.movenext
                        loop
                        
                        rs.close
                        set rs=nothing
                        TopNewsTitle = ""
                        TopNewsContent = ""
                        %>
                    </ul>
                </div>
                
                
            	<!--创意擂台-->
            	<div class="mainNews_right_items" style="margin-left:10px;">
                    <h4><a href="#" class="more">more</a>创意擂台</h4>
                    <%
                    sql=" Select top 1 * from news where ssfl=8 and ontop=1 order by id desc,UpdateTime desc"
                    Set rs = Server.CreateObject ("ADODB.Recordset")
                    rs.open sql,conn,1,1
                    'response.write (sql) & "<br>"
                    if not rs.eof then
                    Thumb = rs("Thumb")
                    TopNewsID = rs("id")
                    TopNewsTitle = left(rs("title"),15)
                    TopNewsContent = left(ClearHtml(rs("body")),50)
                    end if 
                    rs.close
                    set rs=nothing
                    %>
                    <div class="eliteNews_items">
                        <div class="eliteNews_items_image"><img src="<%=Thumb%>" width=130 height=95 /></div>
                        <div class="eliteNews_items_txt">
                            <div class="eliteNews_items_title"><a href="/newsinfo.asp?id=<%=TopNewsID%>"><%=TopNewsTitle%></a></div>
                            <div class="eliteNews_items_text"><%=TopNewsContent%>...</div>
                            <span class="more_span">>><a href="/newsinfo.asp?id=<%=TopNewsID%>" class="red_a" >详细</a></span>
                        </div>
                    </div>
                    <ul>
						<%
                        sql=" Select top 5 * from news where ssfl=8 order by id desc,UpdateTime desc"
                        Set rs = Server.CreateObject ("ADODB.Recordset")
                        rs.open sql,conn,1,1
                        'response.write (sql)
                        do while not rs.eof
                        UpdateTime = Year(rs("UpdateTime")) & "-" & Month(rs("UpdateTime")) & "-" & day(rs("UpdateTime")) 
                        response.write ("<li><a href=""/newsinfo.asp?id="& rs("id") &""">"& left(rs("title"),40) &"...</a></li>") & vbcrlf
                        rs.movenext
                        loop
                        
                        rs.close
                        set rs=nothing
                        TopNewsTitle = ""
                        TopNewsContent = ""
                        %>
                    </ul>
                </div>
                
                
            </div>

        
        </div>
        
        <h3><a href="#" class="more">more</a>视频 . 信息</h3>
        
        <div class="Vedio">
		<%
        sql=" Select top 3 * from vedio order by id desc"
        Set rs = Server.CreateObject ("ADODB.Recordset")
        rs.open sql,conn,1,1
        do while not rs.eof

        response.write "<div class=""VideoInfo"">"
        response.write "<div class=""VideoInfo_img""><a href='vedioinfo.asp?id="& rs("id") &"' target='_blank'><img width=240 height=185 src="""& rs("img") &"""/></a></div>"
        response.write "<div class=""VideoInfo_text""><a>"& rs("title") &"</a></div>"
        response.write "</div>"
        
        rs.movenext
        loop
        
        rs.close
        set rs=nothing
        %>
        </div>
        
        
        
        
        
        
        
    </div>
    <!--中部板块结束-->
</div>
<!--#include file="bottom.asp"-->
</div>
</body>
</html>